AWidth(aArray,[bWidth]) --> nWidth:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
returns the aArray width (for array of strings the length of the longest
string in array).

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
aArray:  any array (default is array of strings)
bBlock:  code block for aArray element to its length conversion,
         default is {|e|Len(e)}

Return value:
~~~~~~~~~~~~~
aArray width

Source code is in file  Object3.prg